home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CNBSRC.ZIP / ANSIMONY.INC next >
Encoding:
Text File  |  1996-01-12  |  6.2 KB  |  133 lines
  1.  
  2. Procedure ANSI4MONEY;
  3.  
  4. begin
  5. xline[1] := ' ';
  6. xline[2] := '      -= I Can''t Do It So No One Should =-                          ';
  7. xline[3] := '                                                                    ';
  8. xline[4] := '      I''d like to address those pinheads who sit around on IRC      ';
  9. xline[5] := '      complaining and criticising those individuals who sell and buy';
  10. xline[6] := '      ansis.  They''d like you to believe that they''re of the pious  ';
  11. xline[7] := '      sort that have high virtues and morals.  They say selling ansis';
  12. xline[8] := '      is "stupid" or "dumb" and the people that buy them are "stupid"';
  13. xline[9] := '      or "lame" or "dumb" as well.  My OH my, such big words from a  ';
  14. xline[10] := '      bunch of teenagers.  I''m thoroughly impressed.                 ';
  15. xline[11] := '                                                                     ';
  16. xline[12] := '      I personally think that buying a Nissan (whatever the make or  ';
  17. xline[13] := '      model) is stupid, but that won''t stop the world from buying    ';
  18. xline[14] := '      them, will it?  No.  If making money doing something you enjoy ';
  19. xline[15] := '      is dumb, then fucking call me the dumbest mutherfucker alive,  ';
  20. xline[16] := '      please.  The arguement goes, you can''t make a living selling   ';
  21. xline[17] := '      ansis; but you can''t make a living sitting on IRC spewing your ';
  22. xline[18] := '      worthless opinions either.  You can''t make a living mowing your';
  23. xline[19] := '      neighbor''s lawn or running a lemonade stand or a million other ';
  24. xline[20] := '      trivial endeavors that people indulge themselves in, but they  ';
  25. xline[21] := '      do it anyways, sometimes just for the fun of it and sometimes  ';
  26. xline[22] := '      for the extra cash that it brings in.  I bet all those morons  ';
  27. xline[23] := '      spending all their free time putting people down who can sell  ';
  28. xline[24] := '      ansis or buy them would be better off dead, because I find it  ';
  29. xline[25] := '      astounding that they have nothing better to contribute to the  ';
  30. xline[26] := '      world than a mouth full of shit and a brain full of narrow     ';
  31. xline[27] := '      fucking ideas.                                                 ';
  32. xline[28] := '                                                                     ';
  33. xline[29] := '      The world revolves around art, even ansi art (though to a      ';
  34. xline[30] := '      lesser degree).  Everything we see is art.  Art is the product ';
  35. xline[31] := '      of someone''s imagination, and if they happen to sell it then   ';
  36. xline[32] := '      more power to them.  Without art, even the simplest form of it,';
  37. xline[33] := '      the world would be a visual dumpsite.  So be grateful for every';
  38. xline[34] := '      little piece of art, no matter how it got here or what it looks';
  39. xline[35] := '      like, that we have in the world, for it makes this pathetic    ';
  40. xline[36] := '      mudball of a planet, infested with overopinionated and fantasti-';
  41. xline[37] := '      cally misinformed and misguided cocksuckers, a much nicer place ';
  42. xline[38] := '      to live on.                                                     ';
  43. xline[39] := '                                                                      ';
  44. xline[40] := '      Of course, maybe if all those negative fucks that say selling   ';
  45. xline[41] := '      and buying ansis is stupid could draw then they wouldn''t be so  ';
  46. xline[42] := '      down on those of us who can.  Don''t tell me that if someone     ';
  47. xline[43] := '      waved a $20--or even a $10--bill in your face to doodle for them';
  48. xline[44] := '      that you wouldn''t take it, you''d be a lying sack of shit if you ';
  49. xline[45] := '      did.  And if you must be so headstrong as to say that you''d     ';
  50. xline[46] := '      NEVER buy an ansi then fine; but the fact is that your retarded ';
  51. xline[47] := '      BBS or Web Page will always look like it was decorated by an    ';
  52. xline[48] := '      8-year-old.  Your loss.                                         ';
  53. xline[49] := '                                                                      ';
  54. xline[50] := '      Stone the Crow                                                  ';
  55.  
  56. xend := 50;
  57.  
  58. {Read selected text}
  59. textbackground(0);
  60. textcolor(9);
  61. clrscr;
  62. T_HDRimg{Display the text header ansi};
  63. window(4,5,76,21);
  64. gotoxy(1,1);
  65. xch := ' ';
  66. for x := 1 to 16 do
  67. writeln(xline[x]);
  68. while (xch <> (#13)) and (xch <> (#27)) do begin
  69. xch := ' ';
  70. xch := readkey;
  71.   case xch of
  72.        (#80) :begin
  73.                 if x <= xend then
  74.                   begin
  75.                     x := x + 1;
  76.                     gotoxy(1,1);
  77.                     delLine;
  78.                     gotoxy(1,16);
  79.                     writeln(xline[x]);
  80.                   end;
  81.               end;
  82.        (#72) :begin
  83.                 if (x - 15) > (1) then
  84.                  begin
  85.                    x := x - 1;
  86.                    gotoxy(1,1);
  87.                    InsLine;
  88.                    writeln(xline[x-15]);
  89.                  end;
  90.               end;
  91.        (#81) :begin
  92.                 if x <= xend then
  93.                   begin
  94.                     x := x + 1;
  95.                     gotoxy(1,1);
  96.                     delLine;
  97.                     gotoxy(1,16);
  98.                     writeln(xline[x]);
  99.                   end;
  100.               end;
  101.        (#73) :begin
  102.                 if (x - 15) > (1) then
  103.                  begin
  104.                    x := x - 1;
  105.                    gotoxy(1,1);
  106.                    InsLine;
  107.                    writeln(xline[x-15]);
  108.                  end;
  109.               end;
  110.        (#77) :begin
  111.                 if x <= xend then
  112.                   begin
  113.                     x := x + 1;
  114.                     gotoxy(1,1);
  115.                     delLine;
  116.                     gotoxy(1,16);
  117.                     writeln(xline[x]);
  118.                   end;
  119.               end;
  120.        (#75) :begin
  121.                 if (x - 15) > (1) then
  122.                  begin
  123.                    x := x - 1;
  124.                    gotoxy(1,1);
  125.                    InsLine;
  126.                    writeln(xline[x-15]);
  127.                  end;
  128.               end;
  129.  
  130.   end;
  131. end;
  132. window(1,1,80,25){Return screen to normal size};
  133. end;